home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / comm / scr104a.zip / MAKETC2.CM0 < prev    next >
Text File  |  1991-12-28  |  9KB  |  482 lines
  1. %ok := TRUE
  2. OpenBox 1  0 0 79 24 "- Scripta Generator for Wildcat! 2.nn with Tomcat! 2.nn "
  3. %generate := TRUE
  4. %getresp := FALSE
  5. Gosub GetInfo
  6. If %generate
  7.    Shell "!Generate %packet !WC2TC2.TEM"
  8. EndIf
  9. CloseBox 1
  10. Exit
  11.  
  12. :GetInfo
  13. Fore YELLOW
  14. RowCol 2 2
  15. Message "QWK packet name used by BBS:"
  16. RowCol 2 40
  17. Message "Tomcat Key from Message Menu:"
  18. RowCol 4 2
  19. Message "Full name of BBS:"
  20. RowCol 4 53
  21. Message "Virtual Port:"
  22. RowCol 6 2
  23. Message "Username on this BBS:"
  24. RowCol 6 52
  25. Message "Date of Birth:"
  26. RowCol 8 2
  27. Message "Password on this BBS:"
  28. RowCol 8 54
  29. Message "Voice Phone:"
  30. RowCol 10 2
  31. Message "Telephone Number 1:"
  32. RowCol 10 49
  33. Message "Main Menu prompt:"
  34. RowCol 12 2
  35. Message "Telephone Number 2:"
  36. RowCol 12 49
  37. Message " Messages prompt:"
  38. RowCol 14 2
  39. Message "Telephone Number 3:"
  40. RowCol 14 52
  41. Message "Files prompt:"
  42. RowCol 16 2
  43. Message "Telephone Number 4:"
  44. RowCol 18 2
  45. Message "Seconds to wait for connection:"
  46. RowCol 18 37
  47. Message "Ask before deleting .F?L files?"
  48. RowCol 20 2
  49. Message "Gateway string:"
  50. RowCol 20 39
  51. Message "Response:"
  52. RowCol 22 2
  53. Fore White
  54. CurOff
  55. Message "Please wait..."
  56. Gosub GetCFGFile
  57. If %generate
  58.    Gosub Display
  59. EndIf
  60. RowCol 22 2
  61. CLL
  62. CurOn
  63. If %generate
  64.    Gosub GetTomKey
  65. EndIf
  66. If %generate
  67.    Gosub GetBBS
  68. EndIf
  69. If %generate
  70.    Gosub GetPort
  71. EndIf
  72. If %generate
  73.    Gosub GetUser
  74. EndIf
  75. If %generate
  76.    Gosub GetDOB
  77. EndIf
  78. If %generate
  79.    Gosub GetPword
  80. EndIf
  81. If %generate
  82.    Gosub GetPhone
  83. EndIf
  84. If %generate
  85.    Gosub GetNumbers
  86. EndIf
  87. If %generate
  88.    Gosub GetWaitTime
  89. EndIf
  90. If %generate
  91.    Gosub GetConfirm
  92. EndIf
  93. If %generate
  94.    Gosub GetGateway
  95. EndIf
  96. If %generate & %getresp
  97.    Gosub GetResponse
  98. EndIf
  99. If %generate
  100.    Gosub PutCFGFile
  101.    RowCol 22 2
  102.    Fore Yellow
  103.    Message "Continue with script generation? (Y/N) "
  104.    Fore White
  105.    %a := "z"
  106.    While $eq(%a,"z")
  107.       CurOn
  108.       GetKey %a %b
  109.       CurOff
  110.       $caps %a
  111.       If $eq(%a,"N")
  112.          %generate := FALSE
  113.       ElsIf $eq(%a,"Y")
  114.          %generate := TRUE
  115.       Else
  116.          %a := "z"
  117.       EndIf
  118.    EndWhile
  119.    Message %a
  120. EndIf
  121. Return
  122.  
  123. :Display
  124. RowCol 2 31
  125. Message "%packet"
  126. RowCol 2 70
  127. Message "%tomkey"
  128. RowCol 4 20
  129. Message "%bbs"
  130. RowCol 4 67
  131. Message "%vport"
  132. RowCol 6 24
  133. Message "%name"
  134. RowCol 6 67
  135. Message "%dob"
  136. RowCol 8 24
  137. Message "%pword"
  138. RowCol 8 67
  139. Message "%phone"
  140. RowCol 10 22
  141. Message "%numbera"
  142. RowCol 10 67
  143. Message "%main"
  144. RowCol 12 22
  145. Message "%numberb"
  146. RowCol 12 67
  147. Message "%message"
  148. RowCol 14 22
  149. Message "%numberc"
  150. RowCol 14 67
  151. Message "%files"
  152. RowCol 16 22
  153. Message "%numberd"
  154. RowCol 18 34
  155. Message "%waittime "
  156. RowCol 18 69
  157. Message "%confirm"
  158. RowCol 20 18
  159. Message %gateway
  160. RowCol 20 49
  161. Message |%response
  162. Return
  163.  
  164. :GetTomKey
  165. RowCol 2 70
  166. %buffer := "%tomkey"
  167. Input %buffer 1 1 %buffer
  168. %generate := $len(%buffer) # 0
  169. If %generate
  170.    %tomkey := "%buffer"
  171. EndIf
  172. Return
  173.  
  174. :GetBBS
  175. RowCol 4 20
  176. %buffer := "%bbs"
  177. Input %buffer 30 30 %buffer
  178. %generate := $len(%buffer) # 0
  179. If %generate
  180.    %bbs := "%buffer"
  181. EndIf
  182. Return
  183.  
  184. :GetPort
  185. RowCol 4 67
  186. %buffer := "%vport"
  187. Input %buffer 1 1 %buffer
  188. %generate := $len(%buffer) # 0
  189. If %generate
  190.    %vport := "%buffer"
  191. EndIf
  192. Return
  193.  
  194. :GetUser
  195. RowCol 6 24
  196. %buffer := "%name"
  197. Input %buffer 25 25 %buffer
  198. %generate := $len(%buffer) # 0
  199. If %generate
  200.    %name := "%buffer"
  201. EndIf
  202. Return
  203.  
  204. :GetDOB
  205. RowCol 6 67
  206. %buffer := "%dob"
  207. Input %buffer 6 6 %buffer
  208. %generate := $len(%buffer) # 0
  209. If %generate
  210.    %dob := "%buffer"
  211. EndIf
  212. Return
  213.  
  214. :GetPword
  215. RowCol 8 24
  216. %buffer := "%pword"
  217. Input %buffer 12 12 %buffer
  218. %generate := $len(%buffer) # 0
  219. If %generate
  220.    %pword := "%buffer"
  221. EndIf
  222. Return
  223.  
  224. :GetPhone
  225. RowCol 8 67
  226. %buffer := "%phone"
  227. Input %buffer 11 25 %buffer
  228. %generate := $len(%buffer) # 0
  229. If %generate
  230.    %phone := "%buffer"
  231. EndIf
  232. Return
  233.  
  234. :GetNumbers
  235. %i := 1
  236. While %generate & (%i < 5)
  237.    %row := 8+(2*%i)
  238.    RowCol %row 22
  239.    Case %i
  240.      CaseOf 1
  241.         %buffer := "%numbera"
  242.      CaseOf 2
  243.         %buffer := "%numberb"
  244.      CaseOf 3
  245.         %buffer := "%numberc"
  246.      CaseOf 4
  247.         %buffer := "%numberd"
  248.    EndCase
  249.    Input %buffer 25 25 %buffer
  250.    Case %i
  251.      CaseOf 1
  252.         %generate := $len(%buffer) # 0
  253.         If %generate
  254.            %numbera := "%buffer"
  255.         EndIf
  256.      CaseOf 2
  257.         %numberb := "%buffer"
  258.      CaseOf 3
  259.         %numberc := "%buffer"
  260.      CaseOf 4
  261.         %numberd := "%buffer"
  262.    EndCase
  263.    If %generate
  264.       Case %i
  265.          CaseOf 1
  266.             Gosub GetMain
  267.          CaseOf 2
  268.             Gosub GetMess
  269.          CaseOf 3
  270.             Gosub GetFiles
  271.       EndCase
  272.    EndIf
  273.    Inc %i
  274. EndWhile
  275. Return
  276.  
  277. :GetMain
  278. RowCol 10 67
  279. %buffer := "%main"
  280. Input %buffer 8 8 %buffer
  281. %generate := $len(%buffer) # 0
  282. If %generate
  283.    %main := "%buffer"
  284. EndIf
  285. Return
  286.  
  287. :GetMess
  288. RowCol 12 67
  289. %buffer := "%message"
  290. Input %buffer 8 8 %buffer
  291. %generate := $len(%buffer) # 0
  292. If %generate
  293.    %message := "%buffer"
  294. EndIf
  295. Return
  296.  
  297. :GetFiles
  298. RowCol 14 67
  299. %buffer := "%files"
  300. Input %buffer 8 8 %buffer
  301. %generate := $len(%buffer) # 0
  302. If %generate
  303.    %files := "%buffer"
  304. EndIf
  305. Return
  306.  
  307. :GetWaitTime
  308. RowCol 18 34
  309. %buffer := "%waittime"
  310. Input %buffer 2 2 %buffer
  311. %generate := $len(%buffer) # 0
  312. If %generate
  313.    %waittime := "%buffer"
  314. EndIf
  315. Return
  316.  
  317. :GetConfirm
  318. %buffer := "%confirm"
  319. %old := "%buffer"
  320. %ok := FALSE
  321. While not %ok
  322.    %ok := TRUE
  323.    RowCol 18 69
  324.    Input %buffer 1 1 %buffer
  325.    $caps %buffer
  326.    If $ne(%buffer,"Y") & $ne(%buffer,"N") & $ne(%buffer,"")
  327.       %ok := FALSE
  328.       %buffer := %old
  329.    EndIf
  330. EndWhile
  331. %generate := $len(%buffer) # 0
  332. If %generate
  333.    %confirm := "%buffer"
  334. EndIf
  335. RowCol 18 69
  336. Message %confirm
  337. Return
  338.  
  339. :GetGateway
  340. RowCol 20 18
  341. %buffer := "%gateway"
  342. Input %buffer 20 20 %buffer
  343. %gateway := "%buffer"
  344. %getresp := $len(%gateway) # 0
  345. If not %getresp
  346.    %response := ""
  347.    RowCol 20 18
  348.    Message "                    "
  349.    RowCol 20 49
  350.    Message "                    "
  351. EndIf
  352. Return
  353.  
  354. :GetResponse
  355. %buffer := "%response"
  356. %ok := FALSE
  357. While not %ok
  358.    RowCol 20 49
  359.    Input %buffer 20 20 %buffer
  360.    %ok := $len(%buffer) # 0
  361. EndWhile
  362. %response := "%buffer"
  363. Return
  364.  
  365. :BadWrite
  366. Message "Error writing to file " "%ScrName^M^J^M^J "
  367. Gosub Bad
  368. Return
  369.  
  370. :Bad
  371. CurOff
  372. Message "Press any key when ready."
  373. GetKey %a %b
  374. CurOn
  375. Return
  376.  
  377. :PutCFGFile
  378. %cfg := fopen %cfgname
  379. If %Error
  380.    Message "Error re-opening file " %cfgname
  381.    %generate := FALSE
  382. Else
  383.    %cfg := fwrite 2
  384.    %cfg := fnewline
  385.    %cfg := fwrite %name
  386.    %cfg := fnewline
  387.    %cfg := fwrite %pword
  388.    %cfg := fnewline
  389.    %cfg := fwrite %tomkey
  390.    %cfg := fnewline
  391.    %cfg := fwrite %dob
  392.    %cfg := fnewline
  393.    %cfg := fwrite %phone
  394.    %cfg := fnewline
  395.    %cfg := fwrite %main
  396.    %cfg := fnewline
  397.    %cfg := fwrite %message
  398.    %cfg := fnewline
  399.    %cfg := fwrite %bbs
  400.    %cfg := fnewline
  401.    %cfg := fwrite %numbera
  402.    %cfg := fnewline
  403.    %cfg := fwrite %numberb
  404.    %cfg := fnewline
  405.    %cfg := fwrite %numberc
  406.    %cfg := fnewline
  407.    %cfg := fwrite %numberd
  408.    %cfg := fnewline
  409.    %cfg := fwrite %waittime
  410.    %cfg := fnewline
  411.    %cfg := fwrite %gateway
  412.    %cfg := fnewline
  413.    %cfg := fwrite %response
  414.    %cfg := fnewline
  415.    %cfg := fwrite %vport
  416.    %cfg := fnewline
  417.    %cfg := fwrite %confirm
  418.    %cfg := fnewline
  419.    %cfg := fwrite %files
  420.    %cfg := fnewline
  421.    %cfg := fclose
  422. EndIf
  423. Return
  424.  
  425. :GetCFGFile
  426. %tomkey := "T"
  427. %name := ""
  428. %dob := ""
  429. %pword := ""
  430. %phone := ""
  431. %main := ""
  432. %message := ""
  433. %files := ""
  434. %bbs := ""
  435. %numbera := ""
  436. %numberb := ""
  437. %numberc := ""
  438. %numberd := ""
  439. %waittime := "20"
  440. %gateway := ""
  441. %response := ""
  442. %vport := "%dport"
  443. %confirm := "Y"
  444. RowCol 22 2
  445. %cfgname := "%packet..CFG"
  446. %cfg := fopen %cfgname
  447. If %Error
  448.    %cfg := fcreate %cfgname
  449.    If %Error
  450.       Message "Unable to open or create file " %cfgname ". Press a key."
  451.       CurOff
  452.       GetKey %a %b
  453.       CurOn
  454.       %generate := FALSE
  455.    Else
  456.       Message "New file created - %cfgname"
  457.       %cfg := fclose
  458.    EndIf
  459. Else
  460.    %cfg := fread %name    ; dummy read to bypass the 'Type' byte
  461.    %cfg := fread %name
  462.    %cfg := fread %pword
  463.    %cfg := fread %tomkey
  464.    %cfg := fread %dob
  465.    %cfg := fread %phone
  466.    %cfg := fread %main
  467.    %cfg := fread %message
  468.    %cfg := fread %bbs
  469.    %cfg := fread %numbera
  470.    %cfg := fread %numberb
  471.    %cfg := fread %numberc
  472.    %cfg := fread %numberd
  473.    %cfg := fread %waittime
  474.    %cfg := fread %gateway
  475.    %cfg := fread %response
  476.    %cfg := fread %vport
  477.    %cfg := fread %confirm
  478.    %cfg := fread %files
  479.    %cfg := fclose
  480. EndIf
  481. Return
  482.